paises <- c("Brazil", "Italy", "France", "Argentina")

 letalidade_Brasil_Italia <- dados_covid %>% 
  filter(Country %in% paises, 
         New_cases>0,
         !is.na(New_cases)) %>% 
  separate(Date_reported, c("Ano", "Mês", "Dia")) %>% 
  mutate(Country=case_when(
    Country=="Brazil" ~ "Brasil",
    Country=="Italy" ~ "Itália",
    Country=="France" ~ "França")) %>% 
  mutate(letalidade_diaria = New_deaths/New_cases*100)%>% 
   mutate(Continente = ifelse(Country=="Brazil"|Country=="Argentina",
                              "América do Sul", "Europa")) %>% 
  group_by(Continente, Ano, Country) %>% 
  summarise(letalidade_media = mean(letalidade_diaria,
                                    na.rm=T), 
            desvio_padrao = sd(letalidade_diaria,
                                    na.rm=T ),
            Casos_maximo = max(New_cases,
                                    na.rm=T),
            Obitos_maximo = max(New_deaths,
                                    na.rm=T)) %>% 
  ungroup() %>% 
  mutate_if(is.numeric, ~format(., big.mark=".", decimal.mark=",", digits=2)) 
  

 letalidade_Brasil_Italia

tab1 <- flextable( letalidade_Brasil_Italia) %>% 
  autofit() %>% 
  align(align="r", part="all") %>% 
  align(align="c", j=c(1,2),  part="all") %>% 
  bold(part="header") %>% 
  bold(j=c(1,2)) %>% 
  bg(bg="lightgrey", j=c(1,2), part="all") %>% 
  hline(i=c(2,4,6)) %>% 
  vline(j=2)
  
tab1

tab1 %>% 
  set_header_labels( 
  Country="País", 
  letalidade_media="Letalidade Média Diária",
  desvio_padrao="Desvio Padrão",
  Casos_maximo="Máximo de casos em 24h", 
  Obitos_maximo="Máximo de óbitos em 24h")

tab2 <- tab1 %>% 
  set_header_labels( 
  Country="País", 
  letalidade_media="Letalidade Média Diária",
  desvio_padrao="Desvio\n Padrão",
  Casos_maximo="Máximo de casos em 24h", 
  Obitos_maximo="Máximo de óbitos em 24h")
 
tab2

tab3 <- tab2 %>% 
  add_header_row(values = c("Tempo/Lugar", "Indicadores"),
                 colwidths = c(2,5))

tab3

run_num <- run_autonum(seq_id = "tab", pre_label = "Tabela", 
                       post_label=". ", bkm = "anytable")

tab3 %>% 
set_caption("Título da tabela",
            autonum=run_num ) 

tab3 %>% font(part = "all", fontname = "Verdana")

tab3 %>% font(part = "all", fontname = "Poppins")